home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
ISCLRMON.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-10
|
233b
|
11 lines
DECLARE FUNCTION IsClrMon ()
FUNCTION IsClrMon STATIC
'Captured from post by Joe Negron
'If 0000:0463 = B4, monitor is monochrome, else color
DEF SEG = 0
IsClrMon = PEEK(&H463) <> &HB4
DEF SEG
END FUNCTION